home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / arexx / W42PP.ibrx < prev   
Encoding:
Text File  |  1998-09-10  |  570 b   |  23 lines
  1. /*
  2.  * $VER: W42PP.ibrx 1.0
  3. *Written by  Andres Pääbo ©98 paabo@bancom.net
  4.  *
  5. * Arexx program for  WWWworkbench. This one loads selected file *into Personal Paint 7+. The filename was placed in the cliplist by prior *running of W4arexx.brx.*/
  6.  
  7. OPTIONS RESULTS
  8. filename=getclip('filename')
  9. IF ~SHOW('Ports','PPAINT') THEN DO
  10.       ADDRESS 'COMMAND'
  11.       'Run PPAINT:PPAINT NOCHECK'
  12.       'SYS:RexxC/WaitForPort PPAINT'
  13.     END
  14.  
  15. Address'PPAINT'
  16. screentofront
  17. LoadImage '"'filename'" FORCE QUIET'
  18. if rc~=0 then Requestnotify 'PROMPT "Loading failed. Is it a loadable file? "'
  19.  
  20. EXIT
  21.  
  22.  
  23.